'                  Ŀ
'                              Mike Davis          
'                  
'                                4th hour
'                           Program:Lottery
DIM DThreeNum(3), DFourNum(4), KenoNum(22), BigGameNum(5), TheList(80)
RANDOMIZE TIMER

CLS
INPUT "What is the date?(month-day-year)", TheDate$
CLS

Choice = 0
WHILE Choice <> 5 ' Prints menu until user makes correct selection
        CLS
        PRINT : PRINT
        PRINT TAB(22); "Ŀ"
        PRINT TAB(22); "           Easy Pick            "
        PRINT TAB(22); ""
        PRINT : PRINT
        PRINT TAB(28); "1. Daily Three"
        PRINT TAB(28); "2. Daily Four"
        PRINT TAB(28); "3. The Big Game"
        PRINT TAB(28); "4. Keno"
        PRINT TAB(28); "5. Quit"
        PRINT : PRINT TAB(7);
        INPUT "What is your choice? ", Choice$
        Choice = VAL(Choice$)
        GOSUB Lister
        IF Choice = 1 THEN Choice1 = 1
        IF Choice = 2 THEN Choice2 = 2
        IF Choice = 3 THEN Choice3 = 3
        IF Choice = 4 THEN Choice4 = 4
        IF Choice = 1 THEN GOSUB DailyThree
        IF Choice = 2 THEN GOSUB DailyFour
        IF Choice = 3 THEN GOSUB BigGame
        IF Choice = 4 THEN GOSUB Keno
        IF Choice = 5 THEN END
WEND

END

Lister:

FOR x = 1 TO 80
      TheList(x) = x
NEXT x

RETURN


DailyThree:

FOR x = 1 TO 3
      DThreeNum(x) = INT(RND * 10)
NEXT x

GOSUB Printer
RETURN

DailyFour:

FOR x = 1 TO 4
      DFourNum(x) = INT(RND * 10)
NEXT x

GOSUB Printer
RETURN

BigGame:

FOR x = 1 TO 5
      Pick = INT(RND * (51 - x)) + 1
      BigGameNum(x) = TheList(Pick)
      TheList(Pick) = TheList(51 - x)
NEXT x

Counter = 1
SwitchMade$ = "YES"

WHILE SwitchMade$ = "YES"
      SwitchMade$ = "NO"

      FOR x = 1 TO 5 - Counter
            IF BigGameNum(x) > BigGameNum(x + 1) THEN
                  SWAP BigGameNum(x), BigGameNum(x + 1)
                  SwitchMade$ = "YES"
            END IF
      NEXT x

      Counter = Counter + 1
WEND

BigMoneyBall = INT(RND * 36) + 1

GOSUB Printer
RETURN

Keno:

FOR x = 1 TO 22
      Pick = INT(RND * (81 - x)) + 1
      KenoNum(x) = TheList(Pick)
      TheList(Pick) = TheList(81 - x)
NEXT x

Counter = 1
SwitchMade$ = "YES"


WHILE SwitchMade$ = "YES"
      SwitchMade$ = "NO"

      FOR x = 1 TO 22 - Counter
            IF KenoNum(x) > KenoNum(x + 1) THEN
                  SWAP KenoNum(x), KenoNum(x + 1)
                  SwitchMade$ = "YES"
            END IF
      NEXT x

      Counter = Counter + 1
WEND

GOSUB Printer
RETURN

Printer:

CLS


IF Choice1 <> 1 THEN
      PRINT : PRINT : PRINT
      PRINT TAB(34); "Ŀ"
      PRINT TAB(34); "  Daily Three   "
      PRINT TAB(34); "ĳ"
      PRINT TAB(34); "  Didn't use!   "
      PRINT TAB(34); "                "
      PRINT TAB(34); ""
      PRINT
ELSE
      PRINT : PRINT : PRINT
      PRINT TAB(34); "Ŀ"
      PRINT TAB(34); "  Daily Three   "
      PRINT TAB(34); "ĳ"
      PRINT TAB(34); "    "; USING "#  "; DThreeNum(1);
      PRINT USING "#  "; DThreeNum(2);
      PRINT USING "#     "; DThreeNum(3);
      PRINT ""
      PRINT TAB(34); "                "
      PRINT TAB(34); ""
      PRINT
END IF

IF Choice2 = 2 THEN

      PRINT
      PRINT TAB(34); "Ŀ"
      PRINT TAB(34); "   Daily Four   "
      PRINT TAB(34); "ĳ"
      PRINT TAB(34); "   "; USING "#  "; DFourNum(1);
      PRINT USING "#  "; DFourNum(2);
      PRINT USING "#  "; DFourNum(3);
      PRINT USING "#   "; DFourNum(4);
      PRINT ""
      PRINT TAB(34); "                "
      PRINT TAB(34); ""
      PRINT
ELSE
      
      PRINT TAB(34); "Ŀ"
      PRINT TAB(34); "   Daily Four   "
      PRINT TAB(34); "ĳ"
      PRINT TAB(34); "  Didn't Use!   "
      PRINT TAB(34); "                "
      PRINT TAB(34); ""
      PRINT
END IF

IF Choice3 = 3 THEN
      PRINT TAB(31); "Ŀ"
      PRINT TAB(31); "       Big Game       "
      PRINT TAB(31); "ĳ"
      PRINT TAB(31); "                      "
      PRINT TAB(31); "    ";
      
      FOR x = 1 TO 5
            PRINT USING "## "; BigGameNum(x);
      NEXT x

      PRINT "   "
      PRINT TAB(31); "  Big Money Ball: "; USING "##"; BigMoneyBall;
      PRINT "  "
      PRINT TAB(31); ""
ELSE
      PRINT TAB(31); "Ŀ"
      PRINT TAB(31); "       Big Game       "
      PRINT TAB(31); "ĳ"
      PRINT TAB(31); "                      "
      PRINT TAB(31); "      Didn't use      "
      PRINT TAB(31); "                      "
      PRINT TAB(31); ""
END IF

PRINT : PRINT
IF Choice4 = 4 THEN
      PRINT TAB(24); "Ŀ"
      PRINT TAB(24); "                KENO                "
      PRINT TAB(24); "ĳ"
      PRINT TAB(24); "      ";
     
      FOR x = 1 TO 8
            PRINT USING "## "; KenoNum(x);
      NEXT x
      
      PRINT "      "
      PRINT TAB(24); "                                    "
      PRINT TAB(24); "      ";
    
      FOR x = 1 TO 8
            PRINT USING "## "; KenoNum(x);
      NEXT x

      PRINT "      "
      PRINT TAB(24); "                                    "
      PRINT TAB(24); "         ";
    
      FOR x = 1 TO 6
            PRINT USING "## "; KenoNum(x);
      NEXT x
     
      PRINT "         "
      PRINT TAB(24); "                                    "
      PRINT TAB(24); ""
ELSE
      PRINT TAB(24); "Ŀ"
      PRINT TAB(24); "                KENO                "
      PRINT TAB(24); "ĳ"
      PRINT TAB(24); "                                    "
      PRINT TAB(24); "           Didn't use               "
      PRINT TAB(24); "                                    "
      PRINT TAB(24); ""
END IF

PRINT
INPUT "Hit <ENTER> to continue", dummy$
RETURN